Don't listify key sequence repeatedly

This function is not idempotent it turns out.

diff --git a/which-key.el b/which-key.el
index 37370764f4a7535d9f6a9f24357930151fae9506..738275dc421582ff97c8cbd87902f73a6d086ffd 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1701,7 +1701,9 @@ enough space based on your settings and frame size." prefix-keys)
 
 (defun which-key--reload-key-sequence (key-seq)
   (let ((next-event (mapcar (lambda (ev) (cons t ev))
-                            (listify-key-sequence key-seq))))
+                            (if (listp key-seq)
+                                key-seq
+                              (listify-key-sequence key-seq)))))
     (setq prefix-arg current-prefix-arg
           unread-command-events next-event)))